<!--#include file="Funciones/FuncionesGenerales.asp" -->
<!--#include file="Librerias/mssql-ds.dll" -->
<option value="0">...todos</option>
<%
elegido = Request.Form("elegido")
if elegido = "" then elegido = 0
sSQL = ""
sSQL = sSQL & " select * from Productos2014 " 
if elegido <> 0 then
    sSQL = sSQL & " where o2014_id=" & elegido
end if
sSQL = sSQL & " order by p2014_codigo " 
MatrizResultado = MatrixBD(sSQL, 1)
If VarType(MatrizResultado) = 8  then
    CuantosRegistros = -1
Else
    CuantosRegistros = UBound(MatrizResultado,2)	
End If
%>
<% For i = 0 To CuantosRegistros %>
    <option value="<%=MatrizResultado(0,i) %>"><%=MatrizResultado(2,i) %> - <%=Left(Encode_UTF8(MatrizResultado(3,i)),40) %>...</option>
<% Next %>